5 REM DO REGULACJI PREDKOSCI SLUZA KLAWISZE '<' I '>' KLAWISZ 'ESC' PRZERYWA DZIALANIE PROGRAMU
10 POKE 566,158:POKE 106,PEEK(740):GOTO 2000
19 REM PETLA ANIMACYJNA
20 FOR L=0 TO 87 STEP 8:POKE 561,H1-L:GOSUB 40:NEXT L:SOUND 0,25,10,14
25 FOR L=0 TO 71 STEP 8:POKE 561,H11+8+L:GOSUB 40:NEXT L:SOUND 0,33,10,14
30 POKE 77,0:GOTO 20
39 REM REGULACJA SZYBKOSCI
40 SOUND 0,0,0,0:FOR DELAY=1 TO S:IF PEEK(764)<69 THEN GOSUB 50
45 NEXT DELAY:RETURN 
50 IF PEEK(764)=54 AND S<70 THEN S=S+0.3
55 IF PEEK(764)=55 AND S>0 THEN S=S-0.3
60 IF PEEK(764)=28 THEN 9999:REM PRZERWANIE PROGRAMU
65 POKE 764,255:RETURN 
99 REM PRZYGOTOWANIE EKRANU
100 POKE 106,T-TX:GRAPHICS 5+16:POKE 599,34:POKE 712,PEEK(53770):LFT=16:RIT=63:BOT=47:TOP=0:TX=TX+8
199 REM RYSOWANIE PROSTOKATOW
200 FOR L=1 TO 12:FOR K=1 TO 2:COLOR K:PLOT LFT,TOP:DRAWTO RIT,TOP:DRAWTO RIT,BOT:DRAWTO LFT,BOT:DRAWTO LFT,TOP
205 BOT=BOT-1:TOP=TOP+1:LFT=LFT+X:RIT=RIT-XX:NEXT K:NEXT L:X=X+0.32:XX=XX-0.32
299 REM RYSOWANIE ODBIJACZA
300 COLOR 3:PLOT 38,V:DRAWTO 41,V:DRAWTO 41,VV:DRAWTO 38,VV:DRAWTO 38,V
305 PLOT 39,V-1:DRAWTO 40,V-1:PLOT 39,VV+1:DRAWTO 40,VV+1
310 V=V+4:VV=VV+4:FOR M=1 TO 100:NEXT M:RETURN 
1000 GOSUB 100:COLOR 1:PLOT 39,0:DRAWTO 40,0:H1=PEEK(561)
1005 FOR Q=2 TO 11:GOSUB 100:NEXT Q
1010 COLOR 1:PLOT 39,47:DRAWTO 40,47:H11=PEEK(561)
1499 REM USTAWIENIE KOLOROW I WLACZENIE EKRANU
1500 POKE 712,0:POKE 708,146:POKE 709,68:POKE 710,10:POKE 559,34:GOTO 20
1999 REM INICJACJA ZMIENNYCH
2000 DH=PEEK(561):T=PEEK(106):TX=0:V=1:VV=6:X=-0.6:XX=2+0.6:S=10:GOTO 1000
9998 REM KONIEC
9999 POKE 561,DH:POKE 106,T:GRAPHICS 0:POKE 566,146
